home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / NEOSOFT.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  710 b   |  40 lines
  1. # Neosoft PPP and SLIP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-9-95 TCB
  4.  
  5. STRING username
  6. STRING password
  7.  
  8. # Trace on
  9. SetTimeout 90                      # reset maximum script timeout
  10.  
  11. # Get username from access method
  12. CfgGetValue "Username" username
  13. IF result = 0 THEN
  14.     ABORT "Can't load Username from qdeck.ini"
  15. ENDIF
  16.  
  17. # get password from access method
  18. CfgGetValue "Password" password
  19. IF result = 0 THEN
  20.     ABORT "Can't load Password from qdeck.ini"
  21. ENDIF
  22.  
  23. CommWaitFor "login:"
  24.     CommSend username
  25.     CommSend "%r"
  26.  
  27. CommWaitFor "word:"
  28.     CommSend password
  29.     CommSend "%r"
  30.  
  31. DELAY 3
  32.  
  33. CommSend    "%r"
  34.  
  35. CommWaitFor "$"
  36.     CommSend    "dppp"
  37.     CommSend    "%r"
  38.  
  39. END
  40.